<!--#INCLUDE FILE="programmer.inc"-->
<!--#INCLUDE FILE="conn.asp"-->
<!-- #include file="function_charCode.asp" -->
<!-- #include file="function.asp" -->
<!-- #include file="comsub.asp" -->
<script src=inc/js1.js></script>
<script src=inc/js2.js></script>

<!-- #include file="FriendOE.asp" -->

<%
call bbsClose()
call stylefile()
call newmessage()

Dim id
id=Request("id")

Function authBoard(artId)
    Dim SQL,RS
    Set RS=server.createobject("ADODB.RECORDSET")
    SQL = "SELECT authentication FROM board where boardid=" & artId
    RS.open SQL,conn
        authBoard = RS("authentication")
    RS.close
    Set RS=Nothing
End Function

Function autSelBoard(artId)
    Dim SQL,RS
    Set RS=server.createobject("ADODB.RECORDSET")
    SQL = "SELECT autSel FROM board where boardid=" & artId
    RS.open SQL,conn
        autSelBoard= RS("autSel")
    RS.close
    Set RS=Nothing 
End Function

Function hidBoard(artId)
    Dim SQL,RS
    Set RS=server.createobject("ADODB.RECORDSET")
    SQL = "SELECT boardhidden FROM board where boardid=" & artId
    RS.open SQL,conn
        hidBoard= RS("boardhidden")
    RS.close
    Set RS=Nothing 
End Function

Function hidCommu(artId)
    Dim SQL,RS
    Set RS=server.createobject("ADODB.RECORDSET")
    SQL = "SELECT CommunityHidden FROM community where id=" & artId
    RS.open SQL,conn
        hidCommu= RS("CommunityHidden")
    RS.close
    Set RS=Nothing 
End Function


Dim rs,sql
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from article where trim(Cstr(ID))='"&id&"'"
sql=sql+" order by id Asc"
rs.open sql,conn,1,2
    Dim read
    read=rs("ReadCount")
	If Request.QueryString("replyPage")="" Then 
        read=read+1
	End If
    rs("ReadCount")=read
    rs.Update

	If rs("adminindex")=False And rs("topfirst")=False And rs("top1")=False Then 
		If authBoard(rs("boardid")) Then
	        If session("tslt_username")="" Or (authUser()=False And session("tslt_useridentity")<>3 And session("tslt_useridentity")<>1 And session("tslt_useridentity")<>2) Then
				Call error_Exit()
		    End If 
	    End If 
        If autSelBoard(rs("boardid")) Then
	         If session("tslt_username")="" Or (session("tslt_useridentity")<>3 And session("tslt_useridentity")<>1 And session("tslt_useridentity")<>2) Then
				Call error_Exit()
	         End If 
         End If
         If hidBoard(rs("boardid")) Then
 	          If session("tslt_useridentity")<>1 And session("tslt_useridentity")<>2 Then
				Call error_Exit()
	          End If 
          End If 
          If hidCommu(rs("Communityid")) Then
 	          If session("tslt_useridentity")<>1 And session("tslt_useridentity")<>2 Then
				Call error_Exit()
	          End If 
          End If 
          If rs("dustbin") Then
	          If session("tslt_useridentity")<>1 And session("tslt_useridentity")<>2 Then
				Call error_Exit()
	          End If 
          End If 
    End If  
%>

<html>
<head>
<%call MetaKeyw()%>
<%call MetaDesc()%>
<title><%=rs("subject")%></title>
</head>
<body topmargin=0>

<SCRIPT language=JavaScript>
<!--
     function go_modifynow(src,q){
           var ret;
           ret = confirm(q);
           if(ret!=false)window.location=src;
      }

     function go(src,q){
           var ret;
           ret = confirm(q);
           if(ret!=false)
		   {
                open(src,'','resizable=no,width=320,height=280,top=200,left=340');
                this.location.reload();
           }
      }

     function go2(src){
                open(src,'','resizable=no,width=320,height=280,top=200,left=340');
                this.location.reload();
      }

     function OpenModifyReplyWin(formRM){
         formRM.submit();
         this.location.reload();
      }

     function showsubmenu(sid){
          whichEl = eval("submenu" + sid);
          if (whichEl.style.display == "none")
		  {
                  eval("submenu" + sid + ".style.display=\"\";");
          }
		  else
		  {
                  eval("submenu" + sid + ".style.display=\"none\";");
          }
     }

    function showsubmenureply(sid){
          whichEl = eval("submenureply" + sid);
          if (whichEl.style.display == "none")
		  {
                 eval("submenureply" + sid + ".style.display=\"\";");
          }
		  else
		  {
                 eval("submenureply" + sid + ".style.display=\"none\";");
          }
    }
    function doSubmit(){
	      if (document.replycontentform.replytitle.value=="")
		  {
		      alert("ظⲻΪգ");
              document.replycontentform.replytitle.focus();
		      return false;
          }
	      if (document.replycontentform.replycontent2)
		  {
	          if (document.replycontentform.replycontent2.value=="")
			  {
		          alert("ݲΪգ");
                  document.replycontentform.replycontent2.focus();
		          return false;
	          }
           }
		   else
		   {
	          if (eWebEditor2.getHTML()=="")
		      {
		              alert("ݲΪգ");
		              return false;
	          }
	       }
           document.replycontentform.submit();
     }

     function submenu_mr(sid){
           whichEl = eval("submenu_mr" + sid);
           if (whichEl.style.display == "none")
		   {
                   eval("submenu_mr" + sid + ".style.display=\"\";");
           }
		   else
		   {
                   eval("submenu_mr" + sid + ".style.display=\"none\";");
           }
     }

     function celerity_Submit(){
	       if (document.celerityReplyForm.celerityReplyContent2)
		   {
	          if (document.celerityReplyForm.celerityReplyContent2.value=="")
			  {
	  	          alert("ݲΪգ");
                  document.celerityReplyForm.celerityReplyContent2.focus();
	  	          return false;
	          }
           }
		   else
		   {
	           if (celerity_eWebEditor.getHTML()=="")
			   {
		          alert("ݲΪգ");
		          return false;
	           }
	        }   
            document.celerityReplyForm.submit();
     }              
-->
</Script>

<table border=0 width=100% cellspacing=0 cellpadding=1>
      <tr>
           <td width=100 height="67" bgcolor=greenyellow>
                <img border="0" src="images/tushan2.gif" width="100" height="65" align=middle vspace=0 hspace=0>
           </td>
           <td rowspan=2 bgcolor=dodgerblue>
                <a href=advertisement/11ad/top.htm target="new">
                <%
                     set objad=server.createobject("mswc.adrotator")
                     response.write objad.getadvertisement("advertisement/11ad/topadrot.txt")
                     set objad=nothing
                %>
                </a>
            </td>
      </tr>
      <tr>
            <td height="6" bgcolor=dodgerblue>
            </td>
      </tr>
</table>
<table border=0 width=20% align=left cellspacing="1" cellpadding="1">
      <tr height=60>
           <td bgcolor=dodgerblue>
                <a href=advertisement/11ad/left1.htm target="new">
<%
                      set objad=server.createobject("mswc.adrotator")
                      response.write objad.getadvertisement("advertisement/11ad/leftadrot1.txt")
                      set objad=nothing
%>
                </a>
           </td>
      </tr>
      <tr height=10>
           <td>
       </tr>
       <tr height=60>
            <td bgcolor=dodgerblue>
                  <a href=advertisement/11ad/left2.htm target="new">
<%
                       set objad=server.createobject("mswc.adrotator")
                       response.write objad.getadvertisement("advertisement/11ad/leftadrot2.txt")
                       set objad=nothing
%>
                  </a>
            </td>     
     </tr>
     <tr height=10>
          <td>
     </tr>
     <tr height=60>
          <td bgcolor=dodgerblue>
                <a href=advertisement/11ad/left3.htm target="new">
<%
                     set objad=server.createobject("mswc.adrotator")
                     response.write objad.getadvertisement("advertisement/11ad/leftadrot3.txt")
                     set objad=nothing
%>
                </a>
           </td>
      </tr>
      <tr height=10>
           <td>
      </tr>
      <tr height=60>
            <td bgcolor=dodgerblue>
                  <a href=advertisement/11ad/left4.htm target="new">
<%
                       set objad=server.createobject("mswc.adrotator")
                       response.write objad.getadvertisement("advertisement/11ad/leftadrot4.txt")
                       set objad=nothing
%>
                 </a>
           </td>
       </tr>
</table>

<table border=0 width=79% align=right cellspacing="1" cellpadding="0">
       <tr>
             <td>
                  <table class=td8 border=0 width=100% cellspacing="0" cellpadding="6">
                        <tr>
                             <td align=left class=font3 onmouseout="HideDivMenu2(2)">
                                  <img src=images/home.gif><a class=a4 onmouseover="Cmenu1.style.display='block'" href=index.asp >̳ҳ</a>
                                  <DIV onmouseover="Cmenu1.style.display='block'" onmouseout="Cmenu1.style.display='none'" style="display:none; position:absolute;" id="Cmenu1">
                                         <%call CNavigation_BM()%>
                                  </DIV>
                                  &nbsp;<a class=a4 onmouseover="Bmenu1.style.display='block'" href=community.asp?Communityid=<%=Communityid_B_boardid(rs("boardid"))%>><%=Communityname(Communityid_B_boardid(rs("boardid")))%></a>
                                  <DIV onmouseover="Bmenu1.style.display='block'" onmouseout="Bmenu1.style.display='none'" style="display:none; position:absolute;" id="Bmenu1">
                                         <%call BNavigation_BM(Communityid_B_boardid(rs("boardid")))%>
                                  </DIV>
                                  &nbsp;<a class=a4 href=board.asp?boardid=<%=rs("boardid")%>><%=boardname(rs("boardid"))%></a>
                                  &nbsp;ʾ
                             </td>
                             <td align=right class=font3>
                                  <%if (session("tslt_useridentity")=1 or session("tslt_useridentity")=2) then%>
                                        <A class=a4 href="admin_index/ad_index.asp"></A>
                                  <%end if%>
                                  <%if session("tslt_username")<>"" then%>
                                        <%if session("tslt_openFrameChat")=True then%>
                                             <A class=a2 href="javascript:parent.bottomFrame.location.href='chat/exit.asp';parent.location.href='logout.asp';"><font color=red>ע¼</font></A>
                                        <%else%>
                                             <A class=a2 href="logout.asp"><font color=red>ע¼</font></A>
                                        <%end if%>
                                   <%else%>
                                        <%if session("tslt_username")="" then%>
                                             <A class=a4 href="userlogin.asp">¼</A>&nbsp;<A class=a4 href="zc.asp">ע</A>
                                        <%end if%>
                                   <%end if%>
                                   <A class=a4 id="TopRight_mune2" onmouseover="ShowDivMenu(2)">ܲ˵</A>
                                   <DIV id="div_mune2" align="right" style="display:none;" onmouseover="ShowDivMenu(2)" onmouseout="HideDivMenu(2)">
                                        <table border="0" cellspacing="0" cellpadding="0" bordercolordark='#000000' bordercolorlight='#000000'>
                                              <tr>
                                                   <td height="4">
                                                   </td >
                                              <tr>
                                                   <td class=font3>
			                                           <img src="images/wyl.gif" width="17" height="17" border=0 align=absmiddle><A class=a4 target="_blank" href="wyl/wy.asp">¼</A>
			                                           <%If session("tslt_openFrameChat")="" then%>
					                                        <img src="images/lts.gif" width="17" height="17" border=0 align=absmiddle><A class=a4 href="index_Frame.asp?currentPU=<%=currentPageUrl%>"></A>
                                                       <%else%>
					                                        <img src="images/lts.gif" width="17" height="17" border=0 align=absmiddle><A class=a4 href="javascript:parent.bottomFrame.location.href='chat/exit.asp';parent.location.href=self.location.href;">ر</A>
                                                       <%End if%>
			                                       </td>
                                              </tr>
                                        </table>
                                   </DIV>
                              </td>
                        </tr>
                        <tr bgcolor=#ffffff>
                             <td height=7 colspan=2>
                             </td>
                        </tr>
                  </table>
             </td>
       </tr>

       <tr>
             <td>
                     <table border=0 width=100% cellspacing="1" cellpadding="1">
                            <tr bgcolor=#ffffff>
                                <td colspan=2 align=left>
                                     <%Call CAimg()%>
                                <td colspan=2 align=right>
                                     <%Call showReplyLink()%>
                                 </td>
                            </tr>
                     </table>
              </td>
       </tr>

       <%call ReplyForm()%>

       <%If Request("replyPage")="" Or Request("replyPage")=1 Or Request("replyPage")=0 Then%>
             <tr>
                  <td>
                       <table class=border1_1 border=0 width=100% cellspacing="1" cellpadding="1">
                               <tr height="25" class=tdreply2>
                                    <td class=td5 width="26%">
                                        &nbsp;¥&nbsp;
                                        <%if rs("user")<>"" then%>
                                                (<%call userStanding(rs("user"))%>
                                                <%call UserInfoLink(rs("user"))%>)
                                                <img src=showimage.asp?id=<%=UserId(rs("user"))%> width=25 height=25 vspace=2 hspace=2 align=middle onmouseover="UserImg.style.display='block'" onmouseout="UserImg.style.display='none'">
                                                <div id="UserImg" style="display:none; position:absolute; filter:alpha (opacity=80,finishopacity=80, style=3)">
                                                          <img src="showimage.asp?id=<%=UserId(rs("user"))%>" width="150" height="150">
                                                </div>
                                                </td>
                                                <td class=td5 width="12%">
                                                        <p align="left">״̬(<%=onlineusername(rs("user"))%>)</p>
                                                </td>
                                                <td class=td5 width="15%">
                                                        <p align="left">Ǽ&nbsp;<%=starGrade(rs("user"))%></p>
                                                </td>
                                                <td class=td5 width="20%">
                                                        <p align="left">/&nbsp;<%=ArticleCount(rs("user"))%></p>
                                                </td>
                                                <td class=td5 width="12%">
                                                        <p align="left">&nbsp;<%=MyUserIntegral(rs("user"))%></p>
                                                </td>
                                                <td class=td5 width="">
                                                        <p align="left">ע&nbsp;<%=isEnrolTime(rs("user"))%></p>
                                                </td>
                                        <%else%>
                                                (ο)
                                                </td>
                                                <td class=td5 width="12%">
                                                        <p align="left"></p>
                                                </td>
                                                <td class=td5 width="15%">
                                                        <p align="left"></p>
                                                </td>
                                                <td class=td5 width="20%">
                                                        <p align="left"></p>
                                                </td>
                                                <td class=td5 width="12%">
                                                        <p align="left"></p>
                                                </td>
                                                <td class=td5 width="">
                                                        <p align="left"></p>
                                                </td>
                                         <%end if%>
                               </tr>
                               <tr class=td3 height=25>
                                    <td colspan=6>
                                           <p align="left">&nbsp;С<%=rs("contentsize2")%>
                                           &nbsp;&nbsp;ʱ<%if rs("AddTime")<>rs("firstAddTime") then%>(Ѹ)<%end if%><%=rs("addtime")%>
                                           <%if rs("AddTime")<>rs("firstAddTime") then%>&nbsp;&nbsp;[״ηʱ(<%=rs("firstAddTime")%>)]<%end if%>
										   </p>
                                    </td>
                               </tr>
                               <tr class=td3 height=25>
                                    <td colspan=6>
                                           <p align="left">&nbsp;:&nbsp;&nbsp;<font size="4"><b><%=rs("subject")%></b></font></p>
                                    </td>
                               </tr>
                               <tr>
                                     <td colspan=6 class=td3 style="word-break:break-all">
<%
                                            response.Write "<p align='left'>"
                                            response.Write "<font size='3'>"
                                             if rs("migrate") Then                                            
                                                    response.Write "<SCRIPT language=Javascript>passwords(promptInfo_11(0))</SCRIPT>" &rs("sourceBN")& "<SCRIPT language=Javascript>passwords(promptInfo_11(1))</SCRIPT>" 
											 end If    										 
                                             if rs("secret") then
                                                    response.Write "<SCRIPT language=Javascript>passwords(promptInfo_11(2))</SCRIPT>"
                                             end If                                        
                                             if rs("lockarticle") then
                                                    response.Write "<SCRIPT language=Javascript>passwords(promptInfo_11(3))</SCRIPT>"
                                             end If
                                             response.Write "</p>"
                                             If rs("secret") Then
                                                    if session("tslt_username")=rs("user") or session("tslt_useridentity")=1 or session("tslt_useridentity")=2 or board_BZUser(rs("boardid")) Then                                                
                                                            response.Write rs("content")
                                                    end If
                                             ElseIf rs("lockarticle") Then
                                                    if session("tslt_useridentity")=1 or session("tslt_useridentity")=2 or board_BZUser(rs("boardid")) then
                                                          response.Write rs("content")
                                                    end If
											 Else
                                                     response.Write rs("content")											 
                                             End If 
%>
                                       </td>
                               </tr>
                               <tr>
                                      <td colspan=6 class=td3>
                                            <p align="right">
                                            <%If session("tslt_username")=rs("user") Then%>
                                                  <%if chkYesNo() Then%>
                                                       <%If rs("top_temp")=False Then%>
											                <a href="javascript:go_modifynow('11_transact.asp?isUpdateNow=ok&AId=<%=Rs("id")%>&boardid=<%=Rs("boardid")%>','ȷҪʱ̶?')" title="ʱ">ʱ̶</a>
                                                       <%End If%>
                                                  <%End If%>
											<%End If%><%=rs("sendip")%>
                                            <%if rs("user")=session("tslt_username") then%>
                                                     <%if session("tslt_useridentity")=1 or session("tslt_useridentity")=2 or board_BZUser(rs("boardid")) then%><a style="cursor:hand" onclick="showsubmenu(1)">޸</a><%end if%>
                                            <%end if%>
                                            <%if boardreadonly(rs("boardid"))<>true then%>
                                                     <%if session("tslt_useridentity")=1 or session("tslt_useridentity")=2 or board_BZUser(rs("boardid")) then%><a href="javascript:go('11_Delreply.asp?delallreply=<%=Rs("id")%>','ȷҪɾȫظ?')" title="ɾȫظ"><font color=red>ջظ</font></a><%end if%>
                                            <%end if%>
                                            </p>
                                       </td>
                                </tr>
                      </table>
                 </td>
             </tr>
       <%End If%> 
<%
       call ModifyContent()
       dim replyPage      
       replyPage = Request("replyPage")
       if replyPage="" or replyPage=0 then
           replyPage=1
       else
           replyPage=cint(request("replyPage"))
       end If
       if replyPage="" or replyPage=0 or replyPage=1 then
           call MYreturn()
       end if
       if not (rs("secret") or rs("lockarticle")) Then
            Call ReplyContentShow(Request("id"),replyPage,rs("boardid"))
       else
            if rs("lockarticle")=true then
                if session("tslt_useridentity")=1 or session("tslt_useridentity")=2 or board_BZUser(rs("boardid")) Then
                    Call ReplyContentShow(Request("id"),replyPage,rs("boardid"))
                end if
            elseif rs("secret")=true then
                if session("tslt_username")=rs("user") or session("tslt_useridentity")=1 or session("tslt_useridentity")=2 or board_BZUser(rs("boardid")) Then
                    Call ReplyContentShow(Request("id"),replyPage,rs("boardid"))
                end if
            end if
       end if
%>
       <tr>
             <td>
                  <table border=0 width=100% cellspacing="1" cellpadding="1">
                         <tr bgcolor=#ffffff>
                               <td colspan=2 align=right>
                                     <%Call CAimg2()%>
                               </td>
                          </tr>
                  </table>
             </td>
       </tr>
<%
       If replyList2(id) Then
%>
             <tr>
                 <td>
                      <br>
                      <table border="0" align=center width=100% style="background-color:#D6D3CE">
                           <tr>
                                <td>
<%
                                             If rs("secret") Then
                                                 if session("tslt_username")=rs("user") or session("tslt_useridentity")=1 or session("tslt_useridentity")=2 or board_BZUser(rs("boardid")) Then                                                
                                                     call pages(isTotalRecordcount(id),isTotalPage(id),replyPage)
                                                 end If
											 Else
                                                 call pages(isTotalRecordcount(id),isTotalPage(id),replyPage)										 
                                             End If 
%>
                                </td>
                            </tr>
                      </table>
                      <br>
                 </td>
             </tr>
<%
       End If 

       response.write "<tr><td height='5'>"
       response.write "</td></tr>"

       if rs("secret")=true then
             if session("tslt_username")=rs("user") or  session("tslt_useridentity")=1 or session("tslt_useridentity")=2 or board_BZUser(rs("boardid")) then
                 call celerityReplyForm()
                 call MYreturn()
             end if
       elseif rs("lockarticle")=true then
             if session("tslt_useridentity")=1 or session("tslt_useridentity")=2 or board_BZUser(rs("boardid")) then
                 call celerityReplyForm()
                 call MYreturn()
             end if
       else
             call celerityReplyForm()
             if LoginYesNo() = true then 
                 if session("tslt_username") <> "" then 
                     call MYreturn()
                 end if
             else
                 call MYreturn()
             end if
       end if
%>
      <tr>
            <td>
                <!--#INCLUDE FILE="bottom.asp"-->
            <td>
      </tr>
</table>

<%Call delNewSitenote()%>

</body>
</html>
<%
rs.close
set rs=nothing

Call conn_Nothing()

function boardreadonly(aaa)
    dim rs,sql
    sql="select boardreadonly from board where boardid="&aaa
    set rs=conn.execute(sql)
         boardreadonly=rs("boardreadonly")
    rs.close
    set rs=nothing
end function

function ArticleCount(sss)
    dim rs,spl
    Set rs=server.createobject("ADODB.RECORDSET")
    sql="SELECT articleTotal,replyTotal FROM ts_userinfo where username='"&sss&"'"
    rs.open sql,conn,1,1
        if not rs.eof then			  
            ArticleCount=rs("articleTotal") & "/" &rs("replyTotal")
        end if
    rs.close
    set rs=nothing
end Function

Function isEnrolTime(uesrN)
    Dim rs 
    Set rs=conn.Execute ("SELECT enrol FROM ts_userinfo where username='"&uesrN&"'")
            isEnrolTime=rs("enrol")
    rs.close
    Set rs=Nothing 
End Function 

function onlineusername(oun)
     dim userrs,showname
     set onliners = server.CreateObject("adodb.recordset")
     onliners.open "select hidename from ym_online where onlinename='"&oun&"'",conn,1,1
           if Not (onliners.Eof or onliners.bof) then
                  if onliners("hidename")=false then 
                         showname=""
                  else
                         showname=""
                  end if
           else
                  showname=""
           end if
           onlineusername = showname 
     onliners.close
     set onliners = Nothing
end Function

Function MYreturnValue()
    Dim keyword2
    keyword2=request("keyword")
    Dim rrr
    if Request.QueryString("indexpage")="yes" then
        if request("page")<>"" then
            rrr="index.asp?Page=" &request("page")& "&jinghua=" &request("jinghua")& "&lockarticle=" &request("lockarticle")& "&keyword=" &keyword2& "&secret=" &request("secret")& "&transmit=" &request("transmit")& "&sel1=" &request("sel1")& "&dustbin=" &request("dustbin")
        else
            rrr="index.asp?jinghua=" &request("jinghua")& "&lockarticle=" &request("lockarticle")& "&keyword=" &keyword2& "&secret=" &request("secret")& "&transmit=" &request("transmit")& "&sel1=" &request("sel1")& "&dustbin=" &request("dustbin")
        end if
    elseif Request.QueryString("boardpage")="yes" then
        if request("page")<>"" then
            rrr="board.asp?boardid=" &rs("boardid")& "&Page=" &request("page")& "&jinghua=" &request("jinghua")& "&secret=" &request("secret")& "&lockarticle=" &request("lockarticle")& "&keyword=" &keyword2& "&transmit=" &request("transmit")& "&sel1=" &request("sel1")& "&dustbin=" &request("dustbin")
        else
            rrr="board.asp?boardid=" &rs("boardid")& "&jinghua=" &request("jinghua")& "&secret=" &request("secret")& "&lockarticle=" &request("lockarticle")& "&keyword=" &keyword2& "&transmit=" &request("transmit")& "&sel1=" &request("sel1")& "&dustbin=" &request("dustbin")
        end if
    elseif Request.QueryString("communitypage")="yes" then
        if request("page")<>"" then
            rrr="community.asp?Communityid=" &rs("Communityid")& "&Page=" &request("page")& "&jinghua=" &request("jinghua")& "&secret=" &request("secret")& "&lockarticle=" &request("lockarticle")& "&keyword=" &keyword2& "&transmit=" &request("transmit")& "&sel1=" &request("sel1")& "&dustbin=" &request("dustbin")
        else
            rrr="community.asp?Communityid=" &rs("Communityid")& "&jinghua=" &request("jinghua")& "&secret=" &request("secret")& "&lockarticle=" &request("lockarticle")& "&keyword=" &keyword2& "&transmit=" &request("transmit")& "&sel1=" &request("sel1")& "&dustbin=" &request("dustbin")
        end if
    elseif Request.QueryString("collectionApage")="yes" then
        if request("page")<>"" then
            rrr="collectionA.asp?Page=" &request("page")& "&keyword=" &keyword2& "&sel1=" &request("sel1")
        else
            rrr="collectionA.asp?keyword=" &keyword2& "&sel1=" &request("sel1")
        end if
    elseif Request.QueryString("BParticularQqueryPage")="yes" then
        if request("page")<>"" then
            rrr="BPartQuer.asp?boardid=" &rs("boardid")& "&Page=" &request("page")& "&keyword=" &keyword2
        else
            rrr="BPartQuer.asp?boardid=" &rs("boardid")& "&keyword=" &keyword2
        end If
	Else
        if request("page")<>"" then
            rrr="board.asp?boardid=" &rs("boardid")& "&Page=" &request("page")
        else
            rrr="board.asp?boardid=" &rs("boardid")
        end if
    end If
    MYreturnValue=rrr
End function

function UserId(UserN)
    dim  SQL,RS
    Set RS=server.createobject("ADODB.RECORDSET")
    SQL = "SELECT ID FROM ts_userinfo where username= '"&UserN&"'"
    RS.open SQL,conn,1
        if not RS.eof or RS.bof then
            UserId = RS("ID")
        end if
    RS.close
    set RS = Nothing
end function

Function isCollectionArticle(articleId)
    articleId=cstr(articleId)    
    isCollectionArticle=False
    Dim Sql,Rs
    Sql="select collection From ts_userinfo where username='" & session("tslt_username") & "'"
    set Rs=conn.Execute(sql)
        Dim collection2
        collection2 = Rs("collection")
        if collection2<>"" then
            Dim fff
            fff = Split(collection2, "|")
            Dim i,collectionId
            For i = UBound(fff) To 0 step-1
                collectionId=fff(i)       
                if collectionId=articleId then
                    isCollectionArticle=True  
                    Exit For
                end if
            Next
        end if
    RS.close              
    Set RS = Nothing
End Function

Function chkYesNo()
    Dim rs,sql
	Sql = "select TempTopYes from option1"
    Set rs=conn.execute(Sql)
        chkYesNo=rs("TempTopYes")
    rs.close
    Set rs=Nothing
End Function 

Sub showReplyLink()
     if boardreadonly(rs("boardid"))<>true then
          if rs("lockarticle")=true then
               if session("tslt_useridentity")=1 or session("tslt_useridentity")=2 or board_BZUser(rs("boardid")) then
                    response.write "<a style='cursor:hand' onclick='showsubmenureply(1)'><img src='images/000.gif' alt='ظ(¼)' width='70' height='26' align='absbottom' border='0'></a>"
               end if
         elseif rs("secret")=true then
               if rs("lockarticle")=true then
                    if session("tslt_useridentity")=1 or session("tslt_useridentity")=2 or board_BZUser(rs("boardid")) then
                         response.write "<a style='cursor:hand' onclick='showsubmenureply(1)'><img src='images/000.gif' alt='ظ(¼)' width='70' height='26' align='absbottom' border='0'></a>"
                    end if
               else
                    if session("tslt_username")=rs("user") or session("tslt_useridentity")=1 or session("tslt_useridentity")=2 or board_BZUser(rs("boardid")) then
                         response.write "<a style='cursor:hand' onclick='showsubmenureply(1)'><img src='images/000.gif' alt='ظ(¼)' width='70' height='26' align='absbottom' border='0'></a>"
                    end if
               end if
         else
               if LoginYesNo() = true then
                   response.write "<a style='cursor:hand' onclick='showsubmenureply(1)'><img src='images/000.gif' alt='ظ(¼)' width='70' height='26' align='absbottom' border='0'></a>"
               else
                   response.write "<a style='cursor:hand' onclick='showsubmenureply(1)'><img src='images/000.gif' alt='ظ' width='70' height='26' align='absbottom' border='0'></a>"
               end if
          end if
    end if
End Sub

Sub ReplyForm()
%>
    <tr id="submenureply1" style="DISPLAY: none">
<%
        if LoginYesNo() = true then
            if session("tslt_username")<>"" then
%>
                <td >
                     <table border="1" width="100%" cellspacing="0" cellpadding="1" bgcolor="#000080">
                            <form method=POST name=replycontentform action=11_transact.asp>
                            <input type=hidden name=isReplyForm value="ok">
                            <input type=hidden name=r_savepathfilename>
                            <input type=hidden name="replyid" value=<%=rs("id")%>>
                            <input type=hidden name="OriginallyUrl" value=<%=MYreturnValue()%>>
                            <tr class=tdx> 
                                 <td colspan="2" align="center" height="25"><a style="cursor:hand;text-decoration:underline" onclick="showsubmenureply(1)">ݲظ</a>							 
						    </tr>                             
                            <tr class=tdx>                                     
                                 <td align="left" width="12%" height="25">                                     
                                      <p style="line-height: 150%"><font color="#FF0000">*</font>ظ⣺</p>                                    
                                 </td>                                    
                                 <td> 
                                      <p style="line-height: 150%"><input maxlength=30 class=style type="text" name="replytitle" size="55"></p>                                    
                                 </td>                                    
                            </tr>             
                            <%if session("tslt_username")<>"" then%>
                                 <tr class=tdx>                                    
                                     <td width="12%" height="25" align="left">                                    
                                          <p style="line-height: 150%"><font color="#FF0000"></font>û</p>                                    
                                     </td>                                    
                                     <td height="25">                                    
                                          <p style="line-height: 150%"><input class=style type="text" name="username" size="20" value=<%=session("tslt_username")%> ReadOnly=false></p>                                    
                                     </td>
                                  <tr class=tdx>                                    
                                      <td width="12%" height="25" align="left">                                    
                                           <p style="line-height: 150%"><font color="#FF0000"></font>룺</p>                                    
                                      </td>                                    
                                      <td height="25">                                    
                                           <p style="line-height: 150%"><input class=style type="password" name="password" size="20" value=<%=session("tslt_password")%> ReadOnly=false></p>                                    
                                      </td>                                    
                                  </tr>     
                            <%end if%>
                            <%if (session("tslt_useridentity")=1 or session("tslt_useridentity")=2) then%>
                                  <tr class=tdx>                                    
                                       <td width="12%" height="65">                                    
                                             <p align="left" style="line-height: 150%"><font color="#FF0000">*</font>ݣ
                                       </td>                                    
                                       <td>                                    
                                             <p align="left" style="line-height: 150%"><textarea style="display:none" class=style rows="12" name="replycontent" cols="53"></textarea>
                                             <iframe ID="eWebEditor2" src="ewebeditor/ewebeditor.htm?id=replycontent&style=coolblue&savepathfilename=r_savepathfilename" frameborder="0" scrolling="no" width="600" HEIGHT="300"></iframe>
                                       </td>
                                  </tr>     
                            <%else%>
                                  <%if IsEWebYesNo() then%>   
                                       <tr class=tdx>                                    
                                            <td width="12%" height="65">                                    
                                                 <p align="left" style="line-height: 150%"><font color="#FF0000">*</font>ݣ
                                            </td>                                    
                                            <td>                                    
                                                 <p align="left" style="line-height: 150%"><textarea style="display:none" class=style rows="12" name="replycontent" cols="53"></textarea>
                                                 <iframe ID="eWebEditor2" src="ewebeditor/ewebeditor.htm?id=replycontent&style=coolblue&savepathfilename=r_savepathfilename" frameborder="0" scrolling="no" width="600" HEIGHT="300"></iframe>
                                            </td>
                                        </tr>     
                                   <%else%>
                                        <tr class=tdx>                                    
                                            <td width="12%" height="65">                                    
                                                 <p align="left" style="line-height: 150%"><font color="#FF0000">*</font>ݣ
												 <br><span style="font-size:12px"><a class=a1 href="UBB/UBBHtml.htm" target="_blank">֧UBB룩</span>
                                            </td>                                    
                                            <td>                                    
                                                 <p align="left" style="line-height: 150%"><textarea class=style rows="12" ID="replycontent2" name="replycontent" cols="53"></textarea>
                                            </td>                                
                                        </tr>     
                                   <%end if%>
                            <%end if%>                                                                       
<%
                            If VCYes() Then
                                 Response.Write "<tr class=tdx>"
                                 Response.Write "<td><font color='#FF0000'>*</font>֤룺</td>"
                                 Response.Write "<td>&nbsp;<input type='text' name='chknum' size='8'>&nbsp;&nbsp;"
                                 Call ImgVCShow2(0)
                                 Response.Write "</td>"
                                 Response.Write "</tr>"
                            End If
%>

                            <tr class=tdx>                                    
                                 <td height="22" colspan="2"> 
                                       <p style="line-height: 150%" align="center"><input class=style type="button" value="ͻظ" name="replysend"  onclick="doSubmit()">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
                                       <input type="reset" class=style value="д" name="clear">                                        
                                  </td>                                        
                            </tr> 
                            </form>                                       
                      </table>       
                      <p>                                  
                </td>
<%
            end if
        else
%>
            <td>
                <table border="1" width="100%" cellspacing="0" cellpadding="1" bgcolor="#000080">
                       <form method=POST name=replycontentform action=11_transact.asp>
                       <input type=hidden name=isReplyForm value="ok">
                       <input type=hidden name=r_savepathfilename>
                       <input type=hidden name="replyid" value=<%=rs("id")%>>
                       <input type=hidden name="OriginallyUrl" value=<%=MYreturnValue()%>>

                       <tr class=tdx> 
                           <td colspan="2" align="center" height="25"><a style="cursor:hand;text-decoration:underline" onclick="showsubmenureply(1)">ݲظ</a>
                       </tr>                             
                       <tr class=tdx>                                     
                           <td align="left" width="12%" height="25">                                     
                               <p style="line-height: 150%"><font color="#FF0000">*</font>ظ⣺</p>                                    
                           </td>                                    
                           <td>
                               <p style="line-height: 150%"><input class=style type="text" name="replytitle" size="55"></p>                                    
                           </td>                                    
                       </tr>             
                       <%if session("tslt_username")<>"" then%>
                            <tr class=tdx>                                    
                                <td width="12%" height="25" align="left">                                    
                                    <p style="line-height: 150%"><font color="#FF0000"></font>û</p>                                    
                                </td>                                    
                                <td height="25">                                    
                                    <p style="line-height: 150%"><input class=style type="text" name="username" size="20" value=<%=session("tslt_username")%> ReadOnly=false></p>                                    
                                </td>
                            <tr class=tdx>                                    
                                <td width="12%" height="25" align="left">                                    
                                    <p style="line-height: 150%"><font color="#FF0000"></font>룺</p>                                    
                                </td>                                    
                                <td height="25">                                    
                                    <p style="line-height: 150%"><input class=style type="password" name="password" size="20" value=<%=session("tslt_password")%> ReadOnly=false></p>                                    
                                </td>                                    
                            </tr>     
                       <%end if%>
                       <%if (session("tslt_useridentity")=1 or session("tslt_useridentity")=2) then%>
                            <tr class=tdx>                                    
                                <td width="12%" height="65">                                    
                                    <p align="left" style="line-height: 150%"><font color="#FF0000">*</font>ݣ
                                </td>                                    
                                <td>                                    
                                    <p align="left" style="line-height: 150%"><textarea style="display:none" class=style rows="12" name="replycontent" cols="53"></textarea>
                                    <iframe ID="eWebEditor2" src="ewebeditor/ewebeditor.htm?id=replycontent&style=coolblue&savepathfilename=r_savepathfilename" frameborder="0" scrolling="no" width="600" HEIGHT="300"></iframe>
                                </td>
                            </tr>  
                       <%else%>
                             <%if IsEWebYesNo() then%>   
                                  <tr class=tdx>                                    
                                      <td width="12%" height="65">                                    
                                          <p align="left" style="line-height: 150%"><font color="#FF0000">*</font>ݣ
                                      </td>                                    
                                      <td>                                    
                                          <p align="left" style="line-height: 150%"><textarea style="display:none" class=style rows="12" name="replycontent" cols="53"></textarea>
                                          <iframe ID="eWebEditor2" src="ewebeditor/ewebeditor.htm?id=replycontent&style=coolblue&savepathfilename=r_savepathfilename" frameborder="0" scrolling="no" width="600" HEIGHT="300"></iframe>
                                      </td>
                                  </tr>      
                             <%else%>
                                  <tr class=tdx>                                    
                                      <td width="12%" height="65">                                    
                                          <p align="left" style="line-height: 150%"><font color="#FF0000">*</font>ݣ
										  <br><span style="font-size:12px"><a class=a1 href="UBB/UBBHtml.htm" target="_blank">֧UBB룩</span>
                                      </td>                                    
                                      <td>                                    
                                           <p align="left" style="line-height: 150%"><textarea class=style rows="12" ID="replycontent2" name="replycontent" cols="53"></textarea>
                                      </td>
                                  </tr>    
                             <%end if%>
                        <%end if%>
<%
                        If VCYes() Then
                            Response.Write "<tr class=tdx>"
                            Response.Write "<td><font color='#FF0000'>*</font>֤룺</td>"
                            Response.Write "<td>&nbsp;<input type='text' name='chknum' size='8'>&nbsp;&nbsp;"
                            Call ImgVCShow2(0)
                            Response.Write "</td>"
                            Response.Write "</tr>"
                        End If
%>
                        <tr class=tdx>                                    
                            <td height="22" colspan="2"> 
                                <p style="line-height: 150%" align="center"><input class=style type="button" value="ͻظ" name="replysend"  onclick="doSubmit()">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
                                <input type="reset" class=style value="д" name="clear">                                        
                            </td>                                        
                        </tr> 
                        </form>                                       
                </table>       
                <p>                                  
            </td>
<%
        end if
%>
    </tr>
<%
end Sub

Sub ModifyContent()
%>
    <tr id="submenu1" style="DISPLAY: none">
        <%if session("tslt_useridentity")=1 or session("tslt_useridentity")=2 or board_BZUser(rs("boardid")) then%>
             <%if session("tslt_username")=rs("user") then%>
                  <td>
                      <table border="1" width="100%" cellspacing="0" cellpadding="1" bgcolor="#000080">
                             <form method=POST name=modifycontent action=11_transact.asp>
                             <input type=hidden name=isModifyContent value="ok">
                             <input type=hidden name=modifyid value=<%=rs("id")%>>
                             <input type=hidden name=boardid value=<%=rs("boardid")%>>
                             <input type=hidden name=D_SavePath value=<%=rs("D_SavePathFileName")%>>
                             <input type=hidden name=m_savepathfilename>
                             <input type=hidden name="OriginallyUrl" value=<%=MYreturnValue()%>>

                             <tr class=tdx> 
                                 <td colspan="2" align="center" height="25"><a style="cursor:hand;text-decoration:underline" onclick="showsubmenu(1)">ݲ޸</a>
                             </tr>               
                             <tr class=tdx>                                     
                                 <td align="left" width="12%" height="25">                                     
                                     <p style="line-height: 150%"><font color="#FF0000">*</font>⣺</p>                                    
                                 </td>                                    
                                 <td>                                    
                                     <p style="line-height: 150%"><input class=style type="text" name="title" size="55" value=<%=rs("subject")%> ReadOnly=false></p>                                    
                                 </td>                                    
                             </tr>                                    
                             <tr class=tdx>                                    
                                 <td width="12%" height="25" align="left">                                    
                                     <p style="line-height: 150%"><font color="#FF0000">*</font>û</p>                                    
                                 </td>                                    
                                 <td height="25">                                    
                                     <p style="line-height: 150%"><input class=style type="text" name="username" size="20" value=<%=session("tslt_username")%> ReadOnly=false></p>                                    
                                 </td>
                             <tr class=tdx>                                    
                                  <td width="12%" height="25" align="left">                                    
                                      <p style="line-height: 150%"><font color="#FF0000">*</font>룺</p>                                    
                                  </td>                                    
                                  <td height="25">                                    
                                      <p style="line-height: 150%"><input class=style type="password" name="password" size="20"  value=<%=session("tslt_password")%> ReadOnly=false></p>                                    
                                  </td>                                    
                             </tr>
                             <%if (session("tslt_useridentity")=1 or session("tslt_useridentity")=2) then%>
                                  <tr class=tdx>                                    
                                      <td width="12%" height="65">                                     
                                          <p align="left" style="line-height: 150%"><font color="#FF0000">*</font>ݣ
                                      </td>                                    
                                      <td>                                    
                                          <p align="left" style="line-height: 150%"><textarea style="display:none" class=style rows="12" name="content" cols="53"><%=Server.HtmlEncode(rs("content"))%></textarea>
                                          <iframe ID="eWebEditor1" src="ewebeditor/ewebeditor.htm?id=content&style=coolblue&savepathfilename=m_savepathfilename" frameborder="0" scrolling="no" width="600" HEIGHT="300"></iframe>
                                      </td>
                                   </tr>    
                             <%else%>              
                                   <%if IsEWebYesNo() then%>                       
                                        <tr class=tdx>                                    
                                            <td width="12%" height="65">                                     
                                                <p align="left" style="line-height: 150%"><font color="#FF0000">*</font>ݣ
                                            </td>                                    
                                            <td>                                    
                                                <p align="left" style="line-height: 150%"><textarea style="display:none" class=style rows="12" name="content" cols="53"><%=Server.HtmlEncode(rs("content"))%></textarea>
                                                <iframe ID="eWebEditor1" src="ewebeditor/ewebeditor.htm?id=content&style=coolblue&savepathfilename=m_savepathfilename" frameborder="0" scrolling="no" width="600" HEIGHT="300"></iframe>
                                            </td>
                                         </tr>       
                                   <%else%>
                                         <tr class=tdx>                                    
                                             <td width="12%" height="65">                                     
                                                 <p align="left" style="line-height: 150%"><font color="#FF0000">*</font>ݣ
                                                 <br><span style="font-size:12px"><a class=a1 href="UBB/UBBHtml.htm" target="_blank">֧UBB룩</span>
                                             </td>                                    
                                             <td>
                                                  <p align="left" style="line-height: 150%"><textarea class=style rows="12" name="content" cols="53"><%=myReplace_not(rs("content"))%></textarea>
																				   
										     </td>
                                         </tr>   
                                   <%end if%>
                             <%end if%>
                             <tr class=tdx>                                    
                                 <td height="22" colspan="2">                                    
                                     <p style="line-height: 150%" align="center"><input class=style type="submit" value="޸" name="send" >&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;                                               
                                     <input type="reset" class=style value="д" name="clear">                                        
                                 </td>                                        
                             </tr> 
                             </form>                                       
                       </table>  
                       <p>                                       
                  </td>
             <%end if%>
         <%end if%>
      </tr>
<%end sub%>

<%
sub MYreturn()
    Dim keyword2
    keyword2=replaceChr32_2(request("keyword"))
%>
    <tr>
        <td align=right>
            <%if Request.QueryString("indexpage")="yes" then%>
                 <%if request("page")<>"" then%>
                       <a href='index.asp?Page=<%=request("page")%>&jinghua=<%=request("jinghua")%>&lockarticle=<%=request("lockarticle")%>&keyword=<%=keyword2%>&secret=<%=request("secret")%>&transmit=<%=request("transmit")%>&sel1=<%=request("sel1")%>&dustbin=<%=request("dustbin")%>'><font face="_GB2312" color=dodgerred size="4"></font></a>&nbsp;&nbsp;&nbsp;&nbsp;
                 <%else%>
                       <a href='index.asp?jinghua=<%=request("jinghua")%>&lockarticle=<%=request("lockarticle")%>&keyword=<%=keyword2%>&secret=<%=request("secret")%>&transmit=<%=request("transmit")%>&sel1=<%=request("sel1")%>&dustbin=<%=request("dustbin")%>'><font face="_GB2312" color=dodgerred size="4"></font></a>&nbsp;&nbsp;&nbsp;&nbsp;
                 <%end if%>
            <%elseif Request.QueryString("boardpage")="yes" then%>
                 <%if request("page")<>"" then%>
                       <a href="board.asp?boardid=<%=rs("boardid")%>&Page=<%=request("page")%>&jinghua=<%=request("jinghua")%>&secret=<%=request("secret")%>&lockarticle=<%=request("lockarticle")%>&keyword=<%=keyword2%>&transmit=<%=request("transmit")%>&sel1=<%=request("sel1")%>&dustbin=<%=request("dustbin")%>"><font face="_GB2312" color=dodgerred size="4"></font></a>&nbsp;&nbsp;&nbsp;&nbsp;
                 <%else%>
                       <a href="board.asp?boardid=<%=rs("boardid")%>&jinghua=<%=request("jinghua")%>&secret=<%=request("secret")%>&lockarticle=<%=request("lockarticle")%>&keyword=<%=keyword2%>&transmit=<%=request("transmit")%>&sel1=<%=request("sel1")%>&dustbin=<%=request("dustbin")%>"><font face="_GB2312" color=dodgerred size="4"></font></a>&nbsp;&nbsp;&nbsp;&nbsp;
                 <%end if%>
            <%elseif Request.QueryString("communitypage")="yes" then%>
                 <%if request("page")<>"" then%>
                       <a href='community.asp?Communityid=<%=rs("Communityid")%>&Page=<%=request("page")%>&jinghua=<%=request("jinghua")%>&secret=<%=request("secret")%>&lockarticle=<%=request("lockarticle")%>&keyword=<%=keyword2%>&transmit=<%=request("transmit")%>&sel1=<%=request("sel1")%>&dustbin=<%=request("dustbin")%>'><font face="_GB2312" color=dodgerred size="4"></font></a>&nbsp;&nbsp;&nbsp;&nbsp;
                 <%else%>
                      <a href='community.asp?Communityid=<%=rs("Communityid")%>&jinghua=<%=request("jinghua")%>&secret=<%=request("secret")%>&lockarticle=<%=request("lockarticle")%>&keyword=<%=keyword2%>&transmit=<%=request("transmit")%>&sel1=<%=request("sel1")%>&dustbin=<%=request("dustbin")%>'><font face="_GB2312" color=dodgerred size="4"></font></a>&nbsp;&nbsp;&nbsp;&nbsp;
                 <%end if%>
            <%elseif Request.QueryString("collectionApage")="yes" then%>
                 <%if request("page")<>"" then%>
                       <a href='collectionA.asp?Page=<%=request("page")%>&keyword=<%=keyword2%>&sel1=<%=request("sel1")%>'><font face="_GB2312" color=dodgerred size="4"></font></a>&nbsp;&nbsp;&nbsp;&nbsp;
                 <%else%>
                      <a href='collectionA.asp?keyword=<%=keyword2%>&sel1=<%=request("sel1")%>'><font face="_GB2312" color=dodgerred size="4"></font></a>&nbsp;&nbsp;&nbsp;&nbsp;
                 <%end if%>
            <%elseif Request.QueryString("BParticularQqueryPage")="yes" then%>
                 <%if request("page")<>"" then%>
                       <a href='BPartQuer.asp?boardid=<%=rs("boardid")%>&Page=<%=request("page")%>&keyword=<%=keyword2%>'><font face="_GB2312" color=dodgerred size="4"></font></a>&nbsp;&nbsp;&nbsp;&nbsp;
                 <%else%>
                       <a href='BPartQuer.asp?boardid=<%=rs("boardid")%>&keyword=<%=keyword2%>'><font face="_GB2312" color=dodgerred size="4"></font></a>&nbsp;&nbsp;&nbsp;&nbsp;
                 <%end if%>
            <%Else%>
                 <%if request("page")<>"" then%>
                       <a href="board.asp?boardid=<%=rs("boardid")%>&Page=<%=request("page")%>"><font face="_GB2312" color=dodgerred size="4"></font></a>&nbsp;&nbsp;&nbsp;&nbsp;
                 <%else%>
                       <a href="board.asp?boardid=<%=rs("boardid")%>"><font face="_GB2312" color=dodgerred size="4"></font></a>&nbsp;&nbsp;&nbsp;&nbsp;
                 <%end if%>

            <%end if%>
        </td>
	</tr>
<%
end Sub

Sub celerityReplyForm()
%>
    <tr>
<%
        if LoginYesNo() = true then
             if session("tslt_username")<>"" then
%>
                <td>
                     <table border="1" width="100%" cellspacing="0" cellpadding="1" bgcolor="#000080">
                            <form method=POST name=celerityReplyForm action=11_transact.asp>
                            <input type=hidden name=isCelerityReply value="ok">
                            <input type=hidden name=cr_savepathfilename>
                            <input type=hidden name="celerityReplyid" value=<%=rs("id")%>>
                            <input type=hidden name="OriginallyUrl" value=<%=MYreturnValue()%>>

                            <tr class=tdx> 
                                <td class=td8 colspan="2" align="center" height="25">ٻظ
                            </tr>           
                            <%if session("tslt_username")<>"" then%>
                                 <tr class=tdx>                                    
                                     <td width="12%" height="25" align="left">                                    
                                         <p style="line-height: 150%"><font color="#FF0000"></font>û</p>                                    
                                     </td>                                    
                                     <td height="25">                                    
                                         <p style="line-height: 150%"><input class=style type="text" name="username" size="20" value=<%=session("tslt_username")%> ReadOnly=false></p>                                    
                                     </td>
                                 </tr> 
                                 <tr class=tdx>                                    
                                     <td width="12%" height="25" align="left">                                    
                                         <p style="line-height: 150%"><font color="#FF0000"></font>룺</p>                                    
                                     </td>                                    
                                     <td height="25">                                    
                                         <p style="line-height: 150%"><input class=style type="password" name="password" size="20" value=<%=session("tslt_password")%> ReadOnly=false></p>                                    
                                     </td>                                    
                                 </tr>     
                            <%end if%>
                            <%if (session("tslt_useridentity")=1 or session("tslt_useridentity")=2) then%>
                                 <tr class=tdx>                                    
                                     <td width="12%" height="65">                                    
                                         <p align="left" style="line-height: 150%"><font color="#FF0000">*</font>ݣ
                                     </td>                                    
                                     <td>                                    
                                         <p align="left" style="line-height: 150%"><textarea style="display:none" class=style rows="12" name="celerityReplyContent"></textarea>
                                         <iframe ID="celerity_eWebEditor" src="ewebeditor/ewebeditor.htm?id=celerityReplycontent&style=coolblue&savepathfilename=cr_savepathfilename" frameborder="0" scrolling="no" width="600" HEIGHT="200"></iframe>
                                     </td>
                                 </tr>     
                            <%else%> 
                                 <%if IsEWebYesNo() then%>   
                                      <tr class=tdx>                                    
                                          <td width="12%" height="65">                                    
                                              <p align="left" style="line-height: 150%"><font color="#FF0000">*</font>ݣ
                                          </td>                                    
                                          <td>                                    
                                              <p align="left" style="line-height: 150%"><textarea style="display:none" class=style rows="12" name="celerityReplyContent"></textarea>
                                              <iframe ID="celerity_eWebEditor" src="ewebeditor/ewebeditor.htm?id=celerityReplycontent&style=coolblue&savepathfilename=cr_savepathfilename" frameborder="0" scrolling="no" width="600" HEIGHT="200"></iframe>
                                          </td>
                                       </tr>     
                                  <%else%>
                                       <tr class=tdx>                                    
                                           <td width="12%" height="65">                                    
                                               <p align="left" style="line-height: 150%"><font color="#FF0000">*</font>222
											   <br><span style="font-size:12px"><a class=a1 href="UBB/UBBHtml.htm" target="_blank">֧UBB룩</span>
                                           </td>                                    
                                           <td>                                    
                                               <p align="left" style="line-height: 150%"><textarea class=style ID="celerityReplyContent2" name="celerityReplyContent" rows="12" cols="82"></textarea>
                                           </td>                                
                                        </tr>     
                                   <%end if%>
                            <%end if%>
<%
                            If VCYes() Then
                                Response.Write "<tr class=tdx>"
                                Response.Write "<td><font color='#FF0000'>*</font>֤룺</td>"
                                Response.Write "<td>&nbsp;<input type='text' name='chknum' size='8'>&nbsp;&nbsp;"
                                Call ImgVCShow2(1)
                                Response.Write "</td>"
                                Response.Write "</tr>"
                            End If                                   
%>
                            <tr class=tdx>                                    
                                <td height="22" colspan="2"> 
                                    <p style="line-height: 150%" align="center"><input class=style type="button" value="ͻظ" name="celerity_replysend" onclick="celerity_Submit()">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
                                    <input type="reset" class=style value="д" name="clear">                                        
                                </td>                                        
                            </tr> 
                            </form>                                       
                     </table>       
                     <p>                                  
                </td>
<%
             end if
        else
%>
             <td>
                  <table border="1" width="100%" cellspacing="0" cellpadding="1" bgcolor="#000080">
                         <form method=POST name=celerityReplyForm action=11_transact.asp>
                         <input type=hidden name=isCelerityReply value="ok">
                         <input type=hidden name=cr_savepathfilename>
                         <input type=hidden name="celerityReplyid" value=<%=rs("id")%>>
                         <input type=hidden name="OriginallyUrl" value=<%=MYreturnValue()%>>

                         <tr class=tdx> 
                             <td colspan="2" align="center" height="25"><span class=font4>ٻظ</span>
                         </tr>    
                         <%if session("tslt_username")<>"" then%>
                              <tr class=tdx>                                    
                                  <td width="12%" height="25" align="left">                                    
                                      <p style="line-height: 150%"><font color="#FF0000"></font>û</p>                                    
                                  </td>                                    
                                  <td height="25">                                    
                                      <p style="line-height: 150%"><input class=style type="text" name="username" size="20" value=<%=session("tslt_username")%> ReadOnly=false></p>                                    
                                  </td>
                              <tr class=tdx>                                    
                                  <td width="12%" height="25" align="left">                                    
                                      <p style="line-height: 150%"><font color="#FF0000"></font>룺</p>                                    
                                  </td>                                    
                                  <td height="25">                                    
                                      <p style="line-height: 150%"><input class=style type="password" name="password" size="20" value=<%=session("tslt_password")%> ReadOnly=false></p>                                    
                                  </td>                                    
                               </tr>     
                         <%end if%>
                         <%if (session("tslt_useridentity")=1 or session("tslt_useridentity")=2) then%>
                              <tr class=tdx>                                    
                                  <td width="12%" height="65">                                    
                                      <p align="left" style="line-height: 150%"><font color="#FF0000">*</font>ݣ
                                  </td>                                    
                                  <td>                                    
                                      <p align="left" style="line-height: 150%"><textarea style="display:none" class=style rows="12" name="celerityReplyContent"></textarea>
                                      <iframe ID="celerity_eWebEditor" src="ewebeditor/ewebeditor.htm?id=celerityReplycontent&style=coolblue&savepathfilename=cr_savepathfilename" frameborder="0" scrolling="no" width="600" HEIGHT="200"></iframe>
                                  </td>
                               </tr>      
                          <%else%>
                               <%if IsEWebYesNo() then%>   
                                    <tr class=tdx>                                    
                                        <td width="12%" height="65">                                    
                                            <p align="left" style="line-height: 150%"><font color="#FF0000">*</font>ݣ
                                        </td>                                    
                                        <td>                                    
                                            <p align="left" style="line-height: 150%"><textarea style="display:none" class=style rows="12" name="celerityReplyContent"></textarea>
                                            <iframe ID="celerity_eWebEditor" src="ewebeditor/ewebeditor.htm?id=celerityReplycontent&style=coolblue&savepathfilename=cr_savepathfilename" frameborder="0" scrolling="no" width="600" HEIGHT="200"></iframe>
                                        </td>
                                      </tr>      
                                <%else%>
                                      <tr class=tdx>                                    
                                          <td width="12%" height="65">                                    
                                              <p align="left" style="line-height: 150%"><font color="#FF0000">*</font>ݣ
											  <br><span style="font-size:12px"><a class=a1 href="UBB/UBBHtml.htm" target="_blank">֧UBB룩</span>
                                          </td>                                    
                                          <td>                                    
                                               <p align="left" style="line-height: 150%"><textarea class=style ID="celerityReplyContent2" name="celerityReplyContent" rows="12" cols="82"></textarea>
                                          </td>
                                      </tr>    
                                <%end if%>
                          <%end if%>
<%
                          If VCYes() Then
                              Response.Write "<tr class=tdx>"
                              Response.Write "<td><font color='#FF0000'>*</font>֤룺</td>"
                              Response.Write "<td>&nbsp;<input type='text' name='chknum' size='8'>&nbsp;&nbsp;"
                              Call ImgVCShow2(1)
                              Response.Write "</td>"
                              Response.Write "</tr>"
                          End If                                           
%>                              
                          <tr class=tdx>                                    
                              <td height="22" colspan="2"> 
                                  <p style="line-height: 150%" align="center"><input class=style type="button" value="ͻظ" name="celerity_replysend"  onclick="celerity_Submit()">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
                                  <input type="reset" class=style value="д" name="clear">                                        
                              </td>                                        
                          </tr> 
                          </form>                                       
                  </table>       
                  <p>                                  
             </td>
<%
        end if
%>
    </tr>
<%
end sub

Sub CAimg()
    if session("tslt_username")<>"" then
       if rs("secret") then
          if board_BZUser(rs("boardid")) or session("tslt_username")=rs("user") or session("tslt_useridentity")=1 or session("tslt_useridentity")=2 then
               if isCollectionArticle(Rs("id"))=false then
                    response.write "<A class=a1 href=javascript:go2('11_Delreply.asp?isAddCollection=ok&articleId="&Rs("id")&"')><img src='images/CATop.gif' border=0 align=absmiddle></A>"
               else
                    response.write "<A class=a1 href=javascript:go2('11_Delreply.asp?isDelCollection=ok&articleId="&Rs("id")&"')><img src='images/delATop.gif' border=0 align=absmiddle></A>"
               end if
           end if
       else
           if isCollectionArticle(Rs("id"))=false then
               response.write "<A class=a1 href=javascript:go2('11_Delreply.asp?isAddCollection=ok&articleId="&Rs("id")&"')><img src='images/CATop.gif' border=0 align=absmiddle></A>"
           else
               response.write "<A class=a1 href=javascript:go2('11_Delreply.asp?isDelCollection=ok&articleId="&Rs("id")&"')><img src='images/delATop.gif' border=0 align=absmiddle></A>"
           end if
       end if
    end if
End Sub

Sub CAimg2()
    if session("tslt_username")<>"" then
       if rs("secret") then
          if board_BZUser(rs("boardid")) or session("tslt_username")=rs("user") or session("tslt_useridentity")=1 or session("tslt_useridentity")=2 then
               if isCollectionArticle(Rs("id"))=false then
                   response.write "<A class=a1 href=javascript:go2('11_Delreply.asp?isAddCollection=ok&articleId="&Rs("id")&"')><img src='images/CABottom.gif' border=0 align=absmiddle></A>"
               else
                   response.write "<A class=a1 href=javascript:go2('11_Delreply.asp?isDelCollection=ok&articleId="&Rs("id")&"')><img src='images/delABottom.gif' border=0 align=absmiddle></A>"
               end if
          end if
       else
              if isCollectionArticle(Rs("id"))=false then
                  response.write "<A class=a1 href=javascript:go2('11_Delreply.asp?isAddCollection=ok&articleId="&Rs("id")&"')><img src='images/CABottom.gif' border=0 align=absmiddle></A>"
              else
                  response.write "<A class=a1 href=javascript:go2('11_Delreply.asp?isDelCollection=ok&articleId="&Rs("id")&"')><img src='images/delABottom.gif' border=0 align=absmiddle></A>"
              end if
       end if
    end if
End Sub

sub pages(totalRecordcount,totalPage,replyPage)
    dim keyword2
    keyword2=trim(request("keyword"))
    if totalRecordcount<>0 then
        dim currid1,currid2
        if totalPage>=10 then
            if replyPage mod 10=0 then
                 currid1=replyPage
                 currid2=replyPage-9
             else
                 if totalPage mod 10=0 then 
                     currid1=int(replyPage/10)*10+10
                 else 
                     if int(replyPage/10)=int(totalPage/10) then currid1=(totalPage/10)*10 else currid1=int(replyPage/10)*10+10
                 end if
                 currid2=int(replyPage/10)*10+1
             end if
         else 
             currid1=totalPage mod 10
             currid2=int(replyPage/10)*10+1
         end if
%>
         <table align=left>
              <tr><td>
<%
                       if totalPage>1 Then
                              If replyPage=totalPage or replyPage<>1 Then 
                                  dim PrwePage
                                  PrwePage=replyPage-1
%>
							      <A class=a1 HREF="11.asp?id=<%=Request("id")%>&replyPage=<%=PrwePage%>&Page=<%=Request("Page")%>&jinghua=<%=request("jinghua")%>&secret=<%=request("secret")%>&lockarticle=<%=request("lockarticle")%>&keyword=<%=keyword2%>&transmit=<%=request("transmit")%>&sel1=<%=request("sel1")%>&dustbin=<%=request("dustbin")%>&boardpage=<%=request("boardpage")%>&communitypage=<%=request("communitypage")%>&indexpage=<%=request("indexpage")%>&collectionApage=<%=request("collectionApage")%>&BParticularQqueryPage=<%=request("BParticularQqueryPage")%>"><font size=4>һҳ</font></A>
<%
                              End If  
                        End If          
%>
               </td></tr>
         </table>
         <table border="0" align="left">
               <tr><td>
                       <FONT face=webdings size=2>
                       <%if replyPage=1 then%>
                               <span style="color: #FF0000">9</span>
                       <%else%>
                               <a class=a2 href="11.asp?id=<%=Request("id")%>&replyPage=1&Page=<%=Request("Page")%>&jinghua=<%=request("jinghua")%>&secret=<%=request("secret")%>&lockarticle=<%=request("lockarticle")%>&keyword=<%=keyword2%>&transmit=<%=request("transmit")%>&sel1=<%=request("sel1")%>&dustbin=<%=request("dustbin")%>&boardpage=<%=request("boardpage")%>&communitypage=<%=request("communitypage")%>&indexpage=<%=request("indexpage")%>&collectionApage=<%=request("collectionApage")%>&BParticularQqueryPage=<%=request("BParticularQqueryPage")%>">9</a>
                       <%end if%>
                       <%if Page>10 then%>
                               <a class=a2 href="11.asp?id=<%=Request("id")%>&replyPage=<%=currid2-1%>&Page=<%=Request("Page")%>&jinghua=<%=request("jinghua")%>&secret=<%=request("secret")%>&lockarticle=<%=request("lockarticle")%>&keyword=<%=keyword2%>&transmit=<%=request("transmit")%>&sel1=<%=request("sel1")%>&dustbin=<%=request("dustbin")%>&boardpage=<%=request("boardpage")%>&communitypage=<%=request("communitypage")%>&indexpage=<%=request("indexpage")%>&collectionApage=<%=request("collectionApage")%>&BParticularQqueryPage=<%=request("BParticularQqueryPage")%>">7</a>
                       <%end if%>
                       </FONT>
                       <strong>
<%
                       for i=currid2 to currid1
                            if replyPage=i then 
	                             response.Write("<font color=red size=4>"&i&"</font>  ")
                            else
%>
                                 <FONT size=2>
                                 <a class=a2 href="11.asp?id=<%=Request("id")%>&replyPage=<%=i%>&Page=<%=Request("Page")%>&jinghua=<%=request("jinghua")%>&secret=<%=request("secret")%>&lockarticle=<%=request("lockarticle")%>&keyword=<%=keyword2%>&transmit=<%=request("transmit")%>&sel1=<%=request("sel1")%>&dustbin=<%=request("dustbin")%>&boardpage=<%=request("boardpage")%>&communitypage=<%=request("communitypage")%>&indexpage=<%=request("indexpage")%>&collectionApage=<%=request("collectionApage")%>&BParticularQqueryPage=<%=request("BParticularQqueryPage")%>">
                                        <%response.write i%>
                                 </a>
                                 </FONT>
                            <%end if%>
                            <%response.write " "%>
                       <%next%>
                       </strong>
                       <FONT face=webdings size=2>
                       <%if currid1<totalPage then%>
                             <a class=a2 href="11.asp?id=<%=Request("id")%>&replyPage=<%=currid1+1%>&Page=<%=Request("Page")%>&jinghua=<%=request("jinghua")%>&secret=<%=request("secret")%>&lockarticle=<%=request("lockarticle")%>&keyword=<%=keyword2%>&transmit=<%=request("transmit")%>&sel1=<%=request("sel1")%>&dustbin=<%=request("dustbin")%>&boardpage=<%=request("boardpage")%>&communitypage=<%=request("communitypage")%>&indexpage=<%=request("indexpage")%>&collectionApage=<%=request("collectionApage")%>&BParticularQqueryPage=<%=request("BParticularQqueryPage")%>">8</a>
                      <%end if%>
                      </FONT> 
                      <FONT face=webdings size=2>
                      <%if replyPage=totalPage then%>
                             <span style="color: #FF0000">:</span>
                      <%else%>
                             <a class=a2 href="11.asp?id=<%=Request("id")%>&replyPage=<%=totalPage%>&Page=<%=Request("Page")%>&jinghua=<%=request("jinghua")%>&secret=<%=request("secret")%>&lockarticle=<%=request("lockarticle")%>&keyword=<%=keyword2%>&transmit=<%=request("transmit")%>&sel1=<%=request("sel1")%>&dustbin=<%=request("dustbin")%>&boardpage=<%=request("boardpage")%>&communitypage=<%=request("communitypage")%>&indexpage=<%=request("indexpage")%>&collectionApage=<%=request("collectionApage")%>&BParticularQqueryPage=<%=request("BParticularQqueryPage")%>">:</a>
                      <%end if%>
                      </FONT>
               </td></tr>
         </table>
         <table align=left>
               <tr><td>
<% 
                        if totalPage>1 Then
                            If replyPage=1 or totalPage>replyPage Then
                                 dim NextPage
                                 NextPage=replyPage+1
%>
                                 <A class=a1 HREF="11.asp?id=<%=Request("id")%>&replyPage=<%=NextPage%>&Page=<%=Request("Page")%>&jinghua=<%=request("jinghua")%>&secret=<%=request("secret")%>&lockarticle=<%=request("lockarticle")%>&keyword=<%=keyword2%>&transmit=<%=request("transmit")%>&sel1=<%=request("sel1")%>&dustbin=<%=request("dustbin")%>&boardpage=<%=request("boardpage")%>&communitypage=<%=request("communitypage")%>&indexpage=<%=request("indexpage")%>&collectionApage=<%=request("collectionApage")%>&BParticularQqueryPage=<%=request("BParticularQqueryPage")%>"><font size=4>һҳ</font></A>
<%
                             End If
                        End If
%>
                 </td></tr>
         </table>

         <table align=right>
                 <tr><td>
<%
                       if replyPage>totalPage then
                            replyPage=totalPage
                       end if
                      Response.Write "<font size=2>ҳΣ<font color= red><b>"& replyPage &"</b></font>/<b>"& totalPage &"</b>ҳ ,<b>"& totalRecordcount &"</b></font>"
                      Response.Write "&nbsp;&nbsp;&nbsp;&nbsp;"
   %>
                </td></tr>
         </table>
<%
    end if
end sub
                      
Sub ReplyContentShow(id,isReplyPage,isBoardId)
    Dim rs2,sql2
    Set rs2 = Server.CreateObject("ADODB.Recordset")
    sql2="select * from reply where Cstr(reply_id)='"&id&"'"
    sql2=sql2+" order by id Asc"
    rs2.open sql2,conn,1,1
        dim RowCount,totalPage,totalRecordcount
        if NOT (rs2.EOF And rs2.BOF) then
            rs2.pagesize=showlistok()
            RowCount=rs2.PageSize
            totalPage=rs2.pagecount
            rs2.AbsolutePage=isReplyPage
            totalRecordcount=rs2.recordcount
        end if
        Dim i
		If isReplyPage<=1 Then
		    i=0
		Else
		    i=(isReplyPage-1)*showlistok()
		End If 
        DO WHILE NOT rs2.EOF AND RowCount>0
            RowCount = RowCount - 1
            i=i+1
            response.write "<tr><td>"
            response.write "<table class=border2_2 border='0' width='100%' cellspacing='1' cellpadding='1'>"
            response.write "<tr class=td8><td class=tdreply height=25 width='26%'><a name='"&rs2("ID")&"' ></a>  &nbsp;"&i&"  ¥ ("
            if rs2("reply_human")<>"" then
                call userStanding(rs2("reply_human"))
                call UserInfoLink(rs2("reply_human"))
                response.write ")"
%>
                <img src=showimage.asp?id=<%=UserId(rs2("reply_human"))%> width=25 height=25 vspace=2 hspace=2 align=middle onmouseover="UserImg<%=rs2("id")%>.style.display='block'" onmouseout="UserImg<%=rs2("id")%>.style.display='none'">
                <div id="UserImg<%=rs2("id")%>" style="display:none; position:absolute; filter:alpha (opacity=80,finishopacity=80, style=3)">
                       <img src=showimage.asp?id=<%=UserId(rs2("reply_human"))%> width="150" height="150">
                </div>
<%
                response.write "<td class=tdreply  width='12%'>״̬&nbsp;(" &onlineusername(rs2("reply_human"))& ")</td>"
                response.write "<td class=tdreply  width='15%'>Ǽ&nbsp;"&starGrade(rs2("reply_human"))& "</td>"
                response.write "<td class=tdreply  width='20%'>/&nbsp;" &ArticleCount(rs2("reply_human"))& "</td>"
                response.write "<td class=tdreply  width='12%'>&nbsp;" &MyUserIntegral(rs2("reply_human"))& "</td>"
                response.write "<td class=tdreply  width=''>ע&nbsp;" &isEnrolTime(rs2("reply_human"))& "</td>"
            else
                response.write "ο)"
                response.write "<td class=tdreply  width='12%'></td>"
                response.write "<td class=tdreply  width='15%'></td>"
                response.write "<td class=tdreply  width='20%'></td>"
                response.write "<td class=tdreply  width='12%'></td>"
                response.write "<td class=tdreply  width=''></td>"
            end If
            If rs2("lockReply")=True Then
					response.write "<tr><td colspan=6 height=25 class=tdreply3 align='center'><br><font color=#FF0000>ظѱΡ</font><br><br></td></tr>"
					if session("tslt_useridentity")=1 or session("tslt_useridentity")=2 or board_BZUser(isBoardId) Then
                        response.write "<tr height=25 align=left>"
                        response.write "<td colspan=6 class=tdreply3>"
                        response.write "&nbsp;С" &rs2("contentsize2")
                        response.write "&nbsp;&nbsp;&nbsp;ظʱ"
                        if rs2("reply_time")<>rs2("FirstReply_Time") then
                            response.write "(Ѹ)"
                        end if
                        response.write rs2("reply_time") 
                        if rs2("reply_time")<>rs2("FirstReply_Time") then response.write "&nbsp;&nbsp;[״λظʱ(" &rs2("FirstReply_Time")& ")]"
                        response.write "</td>"
                        response.write "</tr>"
                        response.write "<tr height=25><td colspan=6 class=tdreply3>&nbsp;ظ⣺<b><font size='4'>" &rs2("reply_subject")& "</font></b></td></tr>"	
					    response.write "<tr><td colspan=6 height=25 class=tdreply3 style='word-break:break-all'><font size=4><br>" &rs2("reply_content")& "</td></tr>"
                        response.write "<tr><td colspan=6 height=25 class=tdreply3>"
                        response.write "<p align=right><font color=#000080> "
                        response.write ""&rs2("IP")&"</font>"
%>
                        <%if rs2("reply_human")=session("tslt_username") then%> <a style="cursor:hand" onclick="submenu_mr(<%=rs2("id")%>)">޸</a><%end if%>
<%
                        if session("tslt_useridentity")=1 or session("tslt_useridentity")=2 or board_BZUser(isBoardId) then
%>
                            <a href="javascript:go('11_Delreply.asp?isDelReply=ok&repId=<%=rs2("id")%>&AId=<%=id%>','ȷҪɾظ?')" title="ɾظ"><font color=red>ɾظ</font></a>
                            <a href="javascript:go('11_Delreply.asp?isCancelLR=ok&repId=<%=rs2("id")%>','ȷҪȡ?')" title="ȡ"><font color=green>ȡΡ</font></a>
<%
                        end If
                        response.write "</td></tr>"
					End If 
		    Else
                    response.write "<tr height=25 align=left>"
                    response.write "<td colspan=6 class=tdreply3>"
                    response.write "&nbsp;С" &rs2("contentsize2")
                    response.write "&nbsp;&nbsp;&nbsp;ظʱ"
                    if rs2("reply_time")<>rs2("FirstReply_Time") then
                        response.write "(Ѹ)"
                    end if
                    response.write rs2("reply_time") 
                    if rs2("reply_time")<>rs2("FirstReply_Time") then response.write "&nbsp;&nbsp;[״λظʱ(" &rs2("FirstReply_Time")& ")]"
                    response.write "</td>"
                    response.write "</tr>"
                    response.write "<tr height=25><td colspan=6 class=tdreply3>&nbsp;ظ⣺<b><font size='4'>" &rs2("reply_subject")& "</font></b></td></tr>"	
					response.write "<tr><td colspan=6 height=25 class=tdreply3 style='word-break:break-all'><font size=4><br>" &rs2("reply_content")& "</td></tr>"
                    response.write "<tr><td colspan=6 height=25 class=tdreply3>"
                    response.write "<p align=right><font color=#000080> "
                    response.write ""&rs2("IP")&"</font>"
%>
                    <%if rs2("reply_human")=session("tslt_username") then%> <a style="cursor:hand" onclick="submenu_mr(<%=rs2("id")%>)">޸</a><%end if%>
<%
                    if session("tslt_useridentity")=1 or session("tslt_useridentity")=2 or board_BZUser(isBoardId) then
%>
                        <a href="javascript:go('11_Delreply.asp?isDelReply=ok&repId=<%=rs2("id")%>&AId=<%=id%>','ȷҪɾظ?')" title="ɾظ"><font color=red>ɾظ</font></a>
                        <a href="javascript:go('11_Delreply.asp?isLockReply=ok&repId=<%=rs2("id")%>','ȷҪθظ?')" title="θظ"><font color=red>Ρ</font></a>
<%
                    end If
                    response.write "</td></tr>"					
			End If 
            response.write "</table>"
            response.write "</td></tr>"
%>
            <%if rs2("reply_human")=session("tslt_username") then%>
                      <tr id="submenu_mr<%=rs2("id")%>" style="DISPLAY: none">
                           <td>
                                <table border="1" width="100%" cellspacing="0" cellpadding="1" bgcolor="#000080">
                                      <form method="POST" name="modifyreply<%=rs2("id")%>" action="11_Delreply.asp" target="_blank">
                                      <input type=hidden name=isModifyReply value="ok">
                                      <input type=hidden name=ModifyReplyid value=<%=rs2("id")%>>
                                      <input type=hidden name=ModifyReplyid_SavePath value=<%=rs2("r_SavePathFileName")%>>
                                      <input type=hidden name=mr_savepathfilename<%=rs2("id")%>>
                                      <tr class=tdx> 
                                           <td colspan="2" align="center" height="25"><a style="cursor:hand;text-decoration:underline" onclick="submenu_mr(<%=rs2("id")%>)">ݲ޸</a>
                                      </tr>               
                                      <tr class=tdx>                                     
                                           <td align="left" width="12%" height="25">                                     
                                                <p style="line-height: 150%"><font color="#FF0000">*</font>⣺</p>                                    
                                           </td>                                    
                                           <td>  
                                                <p style="line-height: 150%"><input class=style type="text" name="mr_title" size="55" value=<%=rs2("reply_subject")%> ReadOnly=false></p>                                    
                                           </td>                                    
                                      </tr>                                    
                                      <tr class=tdx>                                    
                                           <td width="12%" height="25" align="left">                                    
                                                <p style="line-height: 150%"><font color="#FF0000">*</font>û</p>                                    
                                           </td>                                    
                                           <td height="25">                                    
                                                <p style="line-height: 150%"><input class=style type="text" name="mr_username" size="20" value=<%=session("tslt_username")%> ReadOnly=false></p>                                    
                                           </td>
                                      <tr class=tdx>                                    
                                           <td width="12%" height="25" align="left">                                    
                                                <p style="line-height: 150%"><font color="#FF0000">*</font>룺</p>                                    
                                           </td>                                    
                                           <td height="25">                                    
                                                <p style="line-height: 150%"><input class=style type="password" name="mr_password" size="20"  value=<%=session("tslt_password")%> ReadOnly=false></p>                                    
                                           </td>                                    
                                      </tr>
                                      <%if (session("tslt_useridentity")=1 or session("tslt_useridentity")=2) then%>
                                            <tr class=tdx>                                    
                                                  <td width="12%" height="65">                                     
                                                      <p align="left" style="line-height: 150%"><font color="#FF0000">*</font>ݣ</td>                                    
                                                  <td>
                                                      <p align="left" style="line-height: 150%"><textarea style="display:none" class=style rows="12" name="mr_content<%=rs2("id")%>" cols="53"><%=Server.HtmlEncode(rs2("reply_content"))%></textarea></textarea>
                                                      <iframe ID="eWebEditor<%=rs2("id")%>" src="ewebeditor/ewebeditor.htm?id=mr_content<%=rs2("id")%>&style=coolblue&savepathfilename=mr_savepathfilename<%=rs2("id")%>" frameborder="0" scrolling="no" width="600" HEIGHT="300"></iframe>
                                                  </td>
                                             </tr>    
                                      <%else%>          
                                             <%if IsEWebYesNo() then%>                            
                                                   <tr class=tdx>                                    
                                                        <td width="12%" height="65">                                     
                                                             <p align="left" style="line-height: 150%"><font color="#FF0000">*</font>ݣ</td>                                    
                                                        <td>                                    
                                                             <p align="left" style="line-height: 150%"><textarea style="display:none" class=style rows="12" name="mr_content<%=rs2("id")%>" cols="53"><%=Server.HtmlEncode(rs2("reply_content"))%></textarea>
                                                             <iframe ID="eWebEditor<%=rs2("id")%>" src="ewebeditor/ewebeditor.htm?id=mr_content<%=rs2("id")%>&style=coolblue&savepathfilename=mr_savepathfilename<%=rs2("id")%>" frameborder="0" scrolling="no" width="600" HEIGHT="300"></iframe>
                                                        </td>
                                                   </tr>    
                                               <%else%>
                                                    <tr class=tdx>                                    
                                                        <td width="12%" height="65">                                     
                                                              <p align="left" style="line-height: 150%"><font color="#FF0000">*</font>ݣ
															  <br><span style="font-size:12px"><a class=a1 href="UBB/UBBHtml.htm" target="_blank">֧UBB룩</span>
													    </td> 
                                                        <td>
                                                              <p align="left" style="line-height: 150%"><textarea class=style rows="12" name="mr_content<%=rs2("id")%>" cols="53"><%=myReplace_not(rs2("reply_content"))%></textarea>
                                                         </td>
                                                      </tr>    
                                               <%end if%>
                                      <%end if%>
                                      <tr class=tdx>                                    
                                             <td height="22" colspan="2">                                    
                                                   <p style="line-height: 150%" align="center"><input class=style type="button" value="޸" name="mr_send" onclick="javascript:OpenModifyReplyWin(modifyreply<%=rs2("id")%>)">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
                                                   <input type="reset" class=style value="д" name="clear">                                        
                                             </td>                                        
                                      </tr> 
                                      </form>                                       
                                </table>  
                                <p>  
                           </td>
                      </tr>
            <%end if%>
            <tr height="5">
                 <td>
                 </td>
            </tr>
<%
           rs2.movenext    
        loop 
    rs2.close
    set rs2=nothing  
End Sub 

%>

